home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / Solutions.91 / SPEDAddresses / background_2740.txt < prev    next >
Encoding:
Text File  |  1990-12-05  |  4.2 KB  |  203 lines
  1. -- background: 2740 from stack: in
  2. -- bmap block id: 3296
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: UserList
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 03
  10. -- high flags: 0000
  11. -- rect: left=58 top=74 right=123 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 156
  16. -- text size: 18
  17. -- style flags: 0
  18. -- line height: 24
  19. -- part name: name
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 03
  24. -- high flags: 0000
  25. -- rect: left=58 top=122 right=214 bottom=511
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 156
  30. -- text size: 14
  31. -- style flags: 0
  32. -- line height: 18
  33. -- part name: address
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 03
  38. -- high flags: 0000
  39. -- rect: left=58 top=213 right=232 bottom=511
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 156
  44. -- text size: 14
  45. -- style flags: 0
  46. -- line height: 18
  47. -- part name: phone
  48.  
  49.  
  50. -- part 40 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=57 top=307 right=338 bottom=194
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: index
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   lock screen
  65.   put bkgnd field "name" into theName
  66.   go first card
  67.   find whole theName
  68.   if the number of this card is not 1 then
  69.     go back
  70.     find empty
  71.   end if
  72.   unlock screen with iris close
  73.   select the FoundLine
  74.   find empty
  75. end mouseUp
  76.  
  77.  
  78. -- part 22 (button)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=449 top=307 right=338 bottom=509
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: next
  90. ----- HyperTalk script -----
  91. on mouseDown
  92.   if the number of next card is not 1 then
  93.     visual effect wipe left
  94.     go next
  95.     wait 7
  96.   end if
  97. end mouseDown
  98.  
  99. on mouseStillDown
  100.   if the number of next card is not 1 then
  101.     visual effect wipe left
  102.     go next
  103.     wait 10
  104.   end if
  105. end mouseStillDown
  106.  
  107.  
  108.  
  109.  
  110. -- part 23 (button)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=206 top=307 right=338 bottom=266
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: prev
  122. ----- HyperTalk script -----
  123. on mouseDown
  124.   if the number of prev card is not 1 then
  125.     visual effect wipe right
  126.     go prev
  127.     wait 10
  128.   end if
  129. end mouseDown
  130.  
  131. on mouseStillDown
  132.   if the number of prev card is not 1 then
  133.     visual effect wipe right
  134.     go prev
  135.     wait 10
  136.   end if
  137. end mouseStillDown
  138.  
  139.  
  140.  
  141.  
  142. -- part 24 (button)
  143. -- low flags: 00
  144. -- high flags: 2000
  145. -- rect: left=351 top=309 right=336 bottom=446
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: search
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   global findWhat
  157.   ask "Enter what you would like to search for:" with findWhat
  158.   if it is empty then exit mouseUp
  159.   put it into findwhat
  160.   simpleFind findWhat
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 44 (button)
  166. -- low flags: 00
  167. -- high flags: 2000
  168. -- rect: left=269 top=309 right=336 bottom=346
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Print
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   answer "Print address information for this card?" with "Cancel" or "Print"
  180.   if it is "cancel" then exit mouseUp
  181.   else
  182.     put numToChar (30) & bkgnd field "name" & return & return after printThis
  183.     put bkgnd field "address" & return after printThis
  184.     put bkgnd field "phone" & return after printThis
  185.     printOut printThis,"Times",12,"plain","false","bold","true"
  186.   end if
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 45 (button)
  192. -- low flags: 00
  193. -- high flags: 8000
  194. -- rect: left=56 top=35 right=64 bottom=339
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 0
  198. -- font id: 156
  199. -- text size: 18
  200. -- style flags: 2048
  201. -- line height: 24
  202. -- part name: Listing of Resource Providers
  203.